home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / DESQVIEW.LIT < prev    next >
Text File  |  1990-01-27  |  3KB  |  119 lines

  1. *[DESQVIEW.LIT]***************************************************************
  2. * Description: Select DESQview for multi node file locking.                  *
  3. * RBBS-PC Level: CPC17.3                                                     *
  4. * Selection Option: MULTINODE = DESQVIEW                                     *
  5. * Additional files: None                                                     *
  6. ******************************************************************************
  7. 22000 IF ZMsgFileLock = ZTrue THEN _
  8.          RETURN
  9.       ZMsgFileLock = ZTrue
  10.       MID$(ZLockStatus$,1,2) = "LM"
  11.       ZSubParm = 2
  12.       CALL Line25
  13.       ZLockFileName$ = ZActiveMessageFile$
  14.       IF ZNetworkType > 0 THEN GOTO 22400
  15.       RETURN
  16. 22100
  17. 22200
  18. 22300
  19. 22400 CALL DVLock("MESSAGE")                                         ' JM102401
  20.       RETURN
  21. 22500
  22. 25000 IF NOT ZMsgFileLock THEN _
  23.          RETURN
  24.       ZMsgFileLock = ZFalse
  25.       MID$(ZLockStatus$,1,2) = "UM"
  26.       ZSubParm = 2
  27.       CALL Line25
  28.       ZLockFileName$ = ZActiveMessageFile$
  29.       IF ZNetworkType > 0 THEN GOTO 25400
  30.       RETURN
  31. 25100
  32. 25200
  33. 25300
  34. 25400 CALL DVUnlock("MESSAGE")                                       ' JM102401
  35.       RETURN
  36. 25500
  37. 26000 IF ZUserFileLock = ZTrue THEN _
  38.          RETURN
  39.       ZUserFileLock = ZTrue
  40.       MID$(ZLockStatus$,4,2) = "LU"
  41.       ZSubParm = 2
  42.       CALL Line25
  43.       ZLockFileName$ = ZActiveUserFile$
  44.       IF ZNetworkType > 0 THEN GOTO 26300
  45.       RETURN
  46. 26100
  47. 26200
  48. 26500 IF ZUserBlockLock = ZTrue THEN _
  49.          RETURN
  50.       ZUserBlockLock = ZTrue
  51.       ZBlk = (ZUserFileIndex / 4) + .26
  52.       MID$(ZLockStatus$,7,2) = "LB"
  53.       ZSubParm = 2
  54.       CALL Line25
  55.       IF ZNetworkType > 0 THEN GOTO 26750
  56.       RETURN
  57. 26600
  58. 26700
  59. 26800
  60. 26900
  61. 27000 IF NOT ZUserFileLock THEN _
  62.          RETURN
  63.       ZUserFileLock = ZFalse
  64.       MID$(ZLockStatus$,4,2) = "UU"
  65.       ZSubParm = 2
  66.       CALL Line25
  67.       ZLockFileName$ = ZActiveUserFile$
  68.       IF ZNetworkType > 0 THEN GOTO 27300
  69.       RETURN
  70. 27100
  71. 27200
  72. 27500 IF NOT ZUserBlockLock THEN _
  73.          RETURN
  74.       ZUserBlockLock = ZFalse
  75.       ZBlk = (ZUserFileIndex / 4) + .26
  76.       MID$(ZLockStatus$,7,2) = "UB"
  77.       ZSubParm = 2
  78.       CALL Line25
  79.       IF ZNetworkType > 0 THEN GOTO 27750
  80.       RETURN
  81. 27600
  82. 27700
  83. 27800
  84. 27900
  85. 28000
  86. 28010
  87. 28100
  88. 29000 IF LockedEn$ = ZWasEN$ THEN _
  89.          RETURN
  90.       LockedEn$ = ZWasEN$
  91.       MID$(ZLockStatus$,10,2) = "LD"
  92.       ZSubParm = 2
  93.       CALL Line25
  94.       ZLockFileName$ = ZWasEN$
  95.       IF ZNetworkType > 0 THEN GOTO 29300
  96. 29010 RETURN
  97. 29100
  98. 29500 IF LockedEn$ <> ZWasEN$ THEN _
  99.          RETURN
  100.       LockedEn$ = ""
  101.       MID$(ZLockStatus$,10,2) = "UD"
  102.       ZSubParm = 2
  103.       CALL Line25
  104.       ZLockFileName$ = ZWasEN$
  105.       IF ZNetworkType > 0 THEN GOTO 29650
  106. 29510 RETURN
  107. 29600
  108. 29700
  109. 29710
  110. 29720
  111. 29730
  112. 29800
  113. 29810
  114. 29820
  115. 29830 END SUB
  116. 30000 SUB InitIBM STATIC
  117.       END SUB
  118. 30020
  119.